sink("MalePoet_Pennsound_TTest.txt")
t.test(WPM ~ Corpus, data = poets)
t.test(dynamism ~ Corpus, data = poets) 
t.test(speaking_rate ~ Corpus, data = poets)
t.test(complexityAllPauses ~ Corpus, data = poets)
t.test(complexitySyllables ~ Corpus, data = poets)
t.test(complexityPhrases ~ Corpus, data = poets)
t.test(pausecount ~ Corpus, data = poets)
t.test(pauserate ~ Corpus, data = poets)
t.test(pausemean100 ~ Corpus, data = poets)
t.test(f0mean ~ Corpus, data = poets)
t.test(f0range ~ Corpus, data = poets)
t.test(f0speed ~ Corpus, data = poets)
t.test(f0contour ~ Corpus, data = poets)
sink()
